﻿Namespace WS
    Public Class Autenticador
        Private _Servidor As String
        Private Property Servidor As String
            Get
                Return _Servidor & "wsAutenticador.asmx"
            End Get
            Set(ByVal value As String)
                _Servidor = value.ToString.Trim & If(value.EndsWith("/"), "", "/")
            End Set
        End Property
        Private wsAutenticador As wsAutenticador.wsAutenticador

        Public Sub New(ByVal _Servidor As String)
            Me._Servidor = _Servidor
        End Sub

        Public Function Autenticar_V1(ByVal s_Empresa As String,
                                      ByVal s_Usuario As String,
                                      ByVal s_Senha As String,
                                      ByVal s_Unidade As String,
                                      ByVal s_Recurso As String) As Integer

            If wsAutenticador Is Nothing Then wsAutenticador = New wsAutenticador.wsAutenticador
            wsAutenticador.Url = Servidor

            Dim intRetorno As Integer = wsAutenticador.Autenticar_V1( _
                                                            s_Empresa, _
                                                            s_Usuario, _
                                                            s_Senha, _
                                                            s_Unidade, _
                                                            s_Recurso)

            Return intRetorno
        End Function


    End Class
End Namespace
